home *** CD-ROM | disk | FTP | other *** search
/ Workbench Designer 2 / Workbench Designer 2.iso / menu / backdrop / box.rexx next >
Encoding:
OS/2 REXX Batch file  |  1997-03-15  |  582 b   |  27 lines
  1. /* Example of EasyRequester */
  2.  
  3. Call addlib("apig.library",0,-30,0)
  4. Call Addlib("rexxsupport.library",0,-30,0)
  5.  
  6. call set_apig_globals()
  7.  
  8. portname = "easyreq1_port"     
  9. p = openport(portname)  
  10. WaitForPort portname  
  11.  
  12. wintitle = ""
  13. winflags = WINDOWCLOSE+WINDOWDRAG+WINDOWSIZING+WINDOWDEPTH+GIMMEZEROZERO
  14. winidcmp = CLOSEWINDOW 
  15.  
  16. win = openwindow(portname,0,0,100,50,2,4,winidcmp,winflags,wintitle,null(),0,0,0)
  17.  
  18. idcmp= ""
  19.  
  20. req = EASYREQUEST(win,"Workbench Designer Menü ","Zurück zum Menu","ja",null(),idcmp,100)
  21.  
  22. if req=0
  23. THEN
  24. ADDRESS "MMPlayer"
  25. 'Uniconify'
  26. call CLOSEWINDOW(win)
  27.